home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b2.d64 / enternames < prev    next >
Text File  |  2007-02-28  |  188b  |  9 lines
  1. 0010 DIM RECIPIENT$ OF 30
  2. 0020 OPEN FILE 3,"@0:XMAS",WRITE
  3. 0030 INPUT RECIPIENT$
  4. 0040 WHILE RECIPIENT$<>"" DO
  5. 0050 WRITE FILE 3: RECIPIENT$
  6. 0060 INPUT RECIPIENT$
  7. 0070 ENDWHILE 
  8. 0080 CLOSE
  9.